Top 10k strings from Intermediate Maths 1 - Long Division (1982)(Rose Software).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TAP] (TOSEC-v2007-01-01) /

Back to the directory listing

   4 ;"                               "
   2 ;"  ?                "
   2 ;"                   "
   2 ;"                               ":
   2  LONG DIVISION 
   1 y(i)=d-s*10
   1 x(i)=d-s*10
   1 v=v+(ind=-1
   1 u=u+(ind=1
   1 sc        
   1 rem=m+take
   1 o$="                                ":
   1 long div  8 
   1 gr        
   1 d=(d-y(i))/10
   1 d=(d-x(i))/10
   1 ;times;" times           ";
   1 ;times*d2:
   1 ;rem;"      "
   1 ;d2;")";d4
   1 ;"answers win"
   1 ;"and this leaves                                                "
   1 ;"and ";v;" incorrect"
   1 ;"You have ";u;" correct (1st time)"
   1 ;"WELL DONE":
   1 ;"TO THE MOON"
   1 ;"Press any key":
   1 ;"Press any key"
   1 ;"Please wait":
   1 ;"Please key in your name":
   1 ;"PROGRAM : ""Long Division"""
   1 ;"PERCENTAGE : ";
   1 ;"NOW take away    (= ";times;" x ";d2;")     "
   1 ;"NAME : ";n$
   1 ;"It goes ";
   1 ;"Instructions ?  y or n"
   1 ;"INCORRECT : ";v
   1 ;"GET THE ROCKET";
   1 ;"Divide ";m;" by ";d2
   1 ;"DATE : ";m$
   1 ;"CORRECT : ";u
   1 ;"3 correct";
   1 ;"-0      "
   1 ;" Press any key to start";
   1 ;" NOW today's date (in any form) "
   1 ;"         "
   1 ;"          ":
   1 ;"           "
   1 ;"             ";
   1 ;"               "
   1 ;"                               ";
   1 ;"                                ":
   1 ;"                                "
   1 000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000002222222200000000000000000000000022222222200000000000000000000002222222222000000000000000000002222222222222200000000000000000222222222222222200000000000000002222222222222222000000000000000022222222222222220000000000000000222222222222222200000000000000002222222222222222000000000000000022222222222222220000000000000000222222222222222200000000000000002222222222222222000000000000000000222222222222200000000000000000000222222222200000000000000000000000222222222000000000000000000000002222222200000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000J
   1 -times*d2:
   1 );take;"      "
   1 );"  ";rem;"      "
   1 "long div"
   1 "________________________________"
   1 "The correct answer is: ";
   1 "Remainder: ";d4-d2*
   1 "DIVIDE ";d4;" by ";d2
   1 "? times";
   1  The answer is:
   1  Remainder:
   1  ROSE SOFTWARE Sept.1982
   1  Press any key 
   1  NO, try again 
   1  I'LL BRING DOWN NEXT FIGURE 
   1  HARD LUCK 
   1  CERTIFICATE 
   1   ";d4-d2*
   1                ";